home *** CD-ROM | disk | FTP | other *** search
/ BUG 10 / BUGCD1998_01.ISO / runtime / _nt4sp3 / nt4sp3_i.exe / [0] / pscript.dll / 259 / 5 < prev    next >
Text File  |  1997-05-01  |  413b  |  5 lines
  1. /nl{currentpoint exch pop 100 exch 10 sub moveto}def errordict begin
  2. /handleerror{showpage 100 720 moveto/Courier-Bold findfont 10 scalefont setfont
  3. (ERROR: )show errordict begin $error begin errorname =string cvs show nl(OFFENDING COMMAND: )show/command load =string cvs show nl nl(OPERAND STACK: )show $error/ostack known{ostack aload length{=string cvs nl show}repeat}if end
  4. end showpage stop}bind def end
  5.